home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 7 / Amiga Format AFCD07 (Dec 1996, Issue 91).iso / serious / shareware / comms / internet / html-related / envwww09 / www / arexx / table.ged < prev    next >
Text File  |  1996-09-13  |  4KB  |  132 lines
  1. /* $VER: 1.0, ©1996 Dietmar Eilert. Create empty table */
  2.  
  3. OPTIONS RESULTS                             /* enable return codes     */
  4.  
  5. if (LEFT(ADDRESS(), 6) ~= "GOLDED") then    /* not started by GoldEd ? */
  6.     address 'GOLDED.1'
  7.  
  8. 'LOCK CURRENT RELEASE=4'                    /* lock GUI, gain access   */
  9. if (RC ~= 0) then
  10.     exit
  11.  
  12. OPTIONS FAILAT 6                            /* ignore warnings         */
  13. SIGNAL ON SYNTAX                            /* ensure clean exit       */
  14.  
  15. /* ------------------------ INSERT YOUR CODE HERE: ------------------- */
  16.  
  17. 'QUERY DOC VAR=DOC'
  18.  
  19. 'FIX VAR=DOC'
  20.  
  21. 'SUFFIX STRING="' || DOC || '" SUFFIX=".html"'
  22.  
  23. 'NAME NEW=' || RESULT
  24.  
  25. 'REQUEST STRING TITLE="Create new table" BODY="Table caption         " OLD="Title" VAR=CAPTION'
  26.  
  27. if (RC = 0) then do
  28.  
  29.     'REQUEST LONG TITLE="Create new table" BODY="Number of columns     " MIN=1 MAX=255 OLD=2 VAR=COLUMNS'
  30.  
  31.     if (RC = 0) then do
  32.  
  33.         'REQUEST LONG TITLE="Create new table" BODY="Number of rows        " MIN=1 MAX=255 OLD=2 VAR=ROWS'
  34.  
  35.         if (RC = 0) then do
  36.  
  37.             'REQUEST TITLE="Create new table" BODY="Should the table have a border ?" BUTTON="!BORDER|NoBorder|_Cancel" VAR=BORDER'
  38.  
  39.             if ((RC = 0) & (RESULT ~= 0)) then do
  40.  
  41.                 'REQUEST TITLE="Create new table" BODY="Should the first row be a table header ?" BUTTON="!HEADER|_Data|_Cancel" VAR=HEADER'
  42.  
  43.                 if ((RC = 0) & (RESULT ~= 0)) then do
  44.  
  45.                     'INSERT LINE'
  46.                     'INSERT LINE'
  47.                     'DOWN'
  48.  
  49.                     if (BORDER = 1) then
  50.                         'TEXT STAY T="<TABLE BORDER>"'
  51.                     else
  52.                         'TEXT STAY T="<TABLE>"'
  53.  
  54.                     'DOWN'
  55.                     'INSERT LINE'
  56.                     'TEXT STAY T="</TABLE>"'
  57.  
  58.                     if (CAPTION ~= "") then do
  59.  
  60.                         'FIX VAR=CAPTION'
  61.  
  62.                         'INSERT LINE'
  63.                         'TEXT STAY T="<CAPTION>"'
  64.                         'DOWN'
  65.  
  66.                         'INSERT LINE'
  67.                         'TEXT STAY T="' || CAPTION || '"'
  68.                         'DOWN'
  69.  
  70.                         'INSERT LINE'
  71.                         'TEXT STAY T="</CAPTION>"'
  72.                         'DOWN'
  73.                     end
  74.  
  75.                     do ROW = 1 to ROWS
  76.  
  77.                         'INSERT LINE'
  78.                         'TEXT STAY T="<RD>"'
  79.                         'DOWN'
  80.  
  81.                         if (ROW = 1) then
  82.                             'PING SLOT=0'
  83.  
  84.                         if ((ROW = 1) & (HEADER = 1)) then do
  85.  
  86.                             do COLUMN = 1 to COLUMNS
  87.  
  88.                                 'INSERT LINE'
  89.                                 'TEXT STAY T="<TH>header cell</TH>"'
  90.                                 'DOWN'
  91.  
  92.                             end
  93.                         end
  94.                         else do
  95.  
  96.                             do COLUMN = 1 to COLUMNS
  97.  
  98.                                 'INSERT LINE'
  99.                                 'TEXT STAY T="<TD>table cell</TD>"'
  100.                                 'DOWN'
  101.  
  102.                             end
  103.                         end
  104.  
  105.                         'INSERT LINE'
  106.                         'TEXT STAY T="</RD>"'
  107.                         'DOWN'
  108.                     end
  109.  
  110.                     'PONG SLOT 0'
  111.  
  112.                     'GOTO STEP=4'
  113.  
  114.                     'REQUEST STATUS="Edit the cell''s text"'
  115.                 end
  116.             end
  117.         end
  118.     end
  119. end
  120.  
  121. /* ---------------------------- END OF YOUR CODE --------------------- */
  122.  
  123. 'UNLOCK' /* VERY important: unlock GUI */
  124. EXIT
  125.  
  126. SYNTAX:
  127.  
  128. SAY "Sorry, error line" SIGL ":" ERRORTEXT(RC) ":-("
  129. 'UNLOCK'
  130. EXIT
  131.  
  132.